home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / liste.def < prev    next >
Text File  |  1995-11-25  |  2KB  |  37 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version:   20.01.94     04:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE Liste;
  20. (* Entnommen ST-Computer 10/89*)
  21. TYPE List;
  22. PROCEDURE MakeList(VAR L:List);
  23. PROCEDURE KillList(VAR L:List);
  24. PROCEDURE First(VAR L:List);
  25. PROCEDURE Last(VAR L:List);
  26. PROCEDURE Next(VAR L:List);
  27. PROCEDURE Prev(VAR L:List);
  28. PROCEDURE Empty(VAR L:List):BOOLEAN;
  29. PROCEDURE AtFirst(VAR L:List):BOOLEAN;
  30. PROCEDURE AtLast(VAR L:List):BOOLEAN;
  31. PROCEDURE GetValue(VAR L:List; VAR Value:ARRAY OF INTEGER):BOOLEAN;
  32. PROCEDURE SetValue(VAR L:List; Value:ARRAY OF INTEGER);
  33. PROCEDURE EnterElement(VAR L:List);
  34. PROCEDURE AppendElement(VAR L:List);
  35. PROCEDURE RemoveElement(VAR L:List);
  36. END Liste.
  37.